home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
AZTECW.DIR
/
01711_Script_EOT
< prev
next >
Wrap
Text File
|
1995-09-12
|
6KB
|
239 lines
global gQuest, gBeenClicked
on AEOTRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if the mousecast = the castnum of sprite 9 or rollover(8) or rollover(11) then
repeat while the mousecast = the castnum of sprite 9 or rollover(8) or rollover(11)
AztecCursor
puppetsprite 12, true
set the locH of sprite 12 to 435
set the locV of sprite 12 to 251
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
EOTAnimate1
end repeat
end if
end if
end repeat
set the locH of sprite 12 to 935
updatestage
puppetsprite 12, false
else
if rollover(6) or rollover(7) then
repeat while rollover(6) or rollover(7)
AztecCursor
puppetsprite 14, true
set the locH of sprite 14 to 333
set the locV of sprite 14 to 239
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
EOTAnimate2
end repeat
end if
end if
end repeat
set the locH of sprite 14 to 933
updatestage
puppetsprite 14, false
else
if rollover(10) then
repeat while rollover(10)
AztecCursor
puppetsprite 13, true
set the locH of sprite 13 to 365
set the locV of sprite 13 to 266
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoop 10, 1007, 5, 0, 1
end repeat
end if
end if
end repeat
set the locH of sprite 13 to 965
puppetsprite 13, false
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on EOTAnimate1
ArrowCursor
set gAnimationcast1 = 1027
set gAnimationcast2 = 1013
set gAnimationcast3 = 1033
set count = 0
updatestage
puppetsound "SA402002.AIF (HORSE WHIN)"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 9 = gAnimationcast2 + 1
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gAnimationcast1 + 1
set the castnum of sprite 9 = gAnimationcast2 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gAnimationcast1 + 2
set the castnum of sprite 9 = gAnimationcast2 + 3
set the castnum of sprite 11 = gAnimationcast3 + 1
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gAnimationcast1 + 3
set the castnum of sprite 9 = gAnimationcast2 + 4
set the castnum of sprite 11 = gAnimationcast3 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gAnimationcast1 + 4
set the castnum of sprite 9 = gAnimationcast2 + 3
set the castnum of sprite 11 = gAnimationcast3 + 3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 9 = gAnimationcast2 + 2
set the castnum of sprite 11 = gAnimationcast3 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 9 = gAnimationcast2 + 1
set the castnum of sprite 11 = gAnimationcast3 + 1
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 9 = gAnimationcast2
set the castnum of sprite 11 = gAnimationcast3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set count = count + 1
end repeat
set the castnum of sprite 8 = gAnimationcast1
set the castnum of sprite 9 = gAnimationcast2
set the castnum of sprite 11 = gAnimationcast3
updatestage
set gBeenClicked = 0
end
on EOTAnimate2
ArrowCursor
set gAnimationcast1 = 1019
set gAnimationcast2 = 1022
set count = 0
updatestage
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 6 = gAnimationcast1 + 1
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2 + 3
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2
updatestage
wait .4
if (the mousedown) then
exit repeat
end if
set count = count + 1
end repeat
set the castnum of sprite 6 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
updatestage
set gBeenClicked = 0
end